home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_0493.zip / SOUNDTSR.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-15  |  931b  |  33 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 421 of 442
  3. From : Raphael Vanney                      2:320/7.0            09 Apr 93  22:18
  4. To   : Eric Ort
  5. Subj : Tsrs
  6. ────────────────────────────────────────────────────────────────────────────────
  7. Hi !
  8.  
  9. EO>I tried the Keep procedure for making a DOS Screen Saver....  well..
  10. EO>there is
  11. EO> so little docs on how to use it, could you give me an example ???
  12.  
  13. Sure.
  14.  
  15. ----------------------------------------------------------- }
  16. { This is a very simple TSR, that should (I did not test it...)
  17. produce some sound. And also some speed deprovement. }
  18.  
  19. {$m 2048,0,0}  { This is _important_ (tremendously :-)) }
  20.  
  21. Uses Crt,DOS ;
  22.  
  23. Procedure NewInt1c ; Interrupt ;
  24. Begin
  25.      Sound(100) ;
  26.      Delay(5) ;
  27.      NoSound ;
  28. End ;
  29.  
  30. Begin
  31.      SetIntVec($1c, @NewInt1c) ;   { Sets our Int $1c handler }
  32.      Keep(0) ;
  33. End.